0 REM SCHACHGRAFIK V1.0 1 REM FUER C-64 2 REM FRITHJOF DAU 3 REM 3017 PATTENSEN 4 4 REM HOPFENBERG 5 5 REM TEL.: 05066/63906 6 REM 1000 RESTORE:GOSUB3100 1010 A$="BITTE DRUECKEN SIE EINE TASTE!" 1020 SYS50003,1:POKE53280,11:POKE53281,11:POKE646,0:SYS50030 1030 PRINTCHR$(147)"[211][195][200][193][195][200][199][210][193][198][201][203] : [196][197][205][207][160][213][206][196][160][193][206][204][197][201][212][213][206][199]." 1040 PRINT:PRINT"[196]IE [194]EFEHLSERWEITERUNG '[211][195][200][193][195][200][199][210][193][198][201][203]' " 1050 PRINT"STELLT DEM [194]ENUTZER 12 NEUE [194]EFEHLE,DIE 1060 [153]"ALLE MIT '(null)(null)(null)' ANGESPRUNGEN WERDEN,ZUR 1070 PRINT"[214]ERFUEGUNG.[211]IE IST VOLLSTAENDIG IN 1080 [153]"(null)ASCHIENENSPRACHE GESCHRIEBEN UND BELEGT"; 1090 [153]"AUCH BEI EINGESCHALTETER CHR$RAFIK KEINEN 1100 PRINT"[194]ASICSPEICHERPLATZ.[211]IE LAESST SICH GUT " 1110 PRINT"Z.B. IN [211]CHACHPROGRAMMEN ODER ZUM 1120 [153]"ZUM ATNBSPIELEN VON (null)ARTIEN (VON (null)EISTER-" 1130 [153]"SCHAFTEN ODER AEHNLICHEN) VERWENDEN." 1140 [141]3080 1150 [153]:[153]"STR$ER ERSTE PEEKEFEHL LAUTET : '(null)(null)(null) 50000'. 1160 PRINT"[200]IERMIT SCHALTET MAN DIE [199]RAFIK EIN." 1170 PRINT"[211]IE WIRD ABER WEDER GELOESCHT NOCH" 1180 PRINT"WERDEN DIE [198]ARBEN DER [199]RAFIK GESETZT.[196]IE"; 1190 PRINT"[194]ITMAP LIEGT AB $E000 UND DER [198]ARBSPEI- 1200 [153]"CHER AB $CC00. 1210 GOSUB3080 1220 PRINT:PRINT"2.[194]EFEHL: [211][217][211] 50003,[198][204][193][199]" 1230 PRINT"[205]IT DIESEM [194]EFEHL WIRD DIE [199]RAFIK AUSGE-"; 1240 PRINT"SCHALTET.[194]EI [198][204][193][199]=0 GEHT DER [195]OMPUTER IN"; 1250 PRINT"DEN [203]LEINSCHRIFT-[199]ROSSSCHRIFTMODUS,BEI" 1260 PRINT"[198][204][193][199]=1 IN DEN [199]ROSSSCHRIFT-[199]RAFIKMODUS." 1270 GOSUB3080 1280 PRINT:PRINT"3.[194]EFEHL : [211][217][211] 50006 1290 [153]"(null)IT DIESEM PEEKEFEHL WIRD DIE CHR$RAFIK 1300 PRINT"GELOESCHT. 1310 [141]3080 1320 [153]:[153]"4.PEEKEFEHL : (null)(null)(null) 50009,PEEK(null)(null)VAL 1330 PRINT"[196]ER [198]ARBSPEICHER DER [199]RAFIK WIRD MIT " 1340 PRINT"DEM [215]ERT [194]YTE GEFUELLT.[197]S MUSS GELTEN: 1350 [153]"0<=PEEK(null)(null)VAL<=255.STR$AS OBERE (null)IBBLE DES PEEKYTES 1360 PRINT"BESTIMMT DIE [218]EICHEN-,DAS UNTERE DIE" 1370 PRINT"[200]INTERGRUNDFARBE." 1380 PRINT:PRINT"[196]EMONSTRATION:" 1390 PRINT"[218]UERST WIRD DIE [199]RAFIK EINGESCHALTET," 1400 PRINT"DANN DER [198]ARBSPEICHER MIT 11 GEFUELLT," 1410 PRINT"UND DANN DIE [194]ITMAP GELOESCHT.[196]IESE" 1420 PRINT"[208]ROZEDUR GEHT NATUERLICH SEHR SCHNELL." 1430 GOSUB3080 1440 SYS50000 1450 SYS50009,11 1460 SYS50006 1470 SYS50033,"5.BEFEHL : SYS 50012,FLAG",0,0 1480 SYS50033,"MIT DIESEM BEFEHL WIRD EIN LEERES BRETT",1,0 1490 SYS50033,"GEMALT.BEI FLAG=0 IST DIE UNTERE LINKE ",2,0 1500 SYS50033,"ECKE IN DER VORDERGRUND-,BEI FLAG=1 IN ",3,0 1510 SYS50033,"DER HINTERGRUNDFARBE GEMALT.",4,0 1520 SYS50033,"DEMONSTATION: 'SYS 50006 : SYS50012,0'",5,0 1530 SYS50033,A$,6,0:POKE198,0:WAIT198,1 1540 SYS50006 1550 SYS50012,0 1560 SYS50033,"DEMONSTATION: 'SYS50012,1'",0,0 1570 SYS50033,A$,1,0:POKE198,0:WAIT198,1 1580 POKE198,0:WAIT198,1:SYS50012,1 1590 SYS50033,A$,0,0:SYS50033," ",1,0 1600 POKE198,0:WAIT198,1:SYS50003,1 1610 PRINT:PRINT"6.[194]EFEHL : [211][217][211] 50015,[198][201][199],[198][197][204][196] 1620 [153]"STR$IESER PEEKEFEHL SETZT DIE ASCIGUR MIT DER " 1630 [153]"(null)UMMER ASCRIGHT$CHR$ AUF DAS ASCELD MIT DER (null)UMMER" 1640 [153]"ASCVAL(null)STR$.STR$IE ASCIGURENCODES SIND: 1650 PRINT"[198][193][210][194][197] 1 [198][193][210][194][197] 2 [194][197][196][197][213][212][213][206][199]" 1660 PRINT" 0 ODER 128 : [204]EERES [198]ELD 1670 [153]" 1 ODER 129 : PEEKAUER 1680 PRINT" 2 ODER [160]130 : [208]FERD 1690 [153]" 3 ODER 131 : (null)AUEFER 1700 PRINT" 4 ODER 132 : [212]URM 1710 [153]" 5 ODER 133 : STR$AME 1720 PRINT" 6 ODER 134 : [203]OENIG 1730 [153]"ATNLLE WEITEREN LENODES SIND NICHT ERLAUBT." 1740 [153]"STR$IE ASCELDER SIND VON 0-63 NUMMERIERT." 1750 [153]"ASCELD 0 LIEGT DABEI LINKS OBEN,ASCELD 7" 1760 [153]"RECHTS OBEN,ASCELD 56 LINKS UNTEN UND ASCELD"; 1770 [153]"63 RECHTS UNTEN.STR$AS ASCELD WIRD BEI DIESEM"; 1780 [153]"PEEKEFEHL ALLERDINGS NICHT GEMALT,DAS MACHT"; 1790 [153]:[153]"STR$ER 7. PEEKEFEHL : (null)(null)(null) 50018,ASCVAL(null)STR$ 1800 PRINT"[196]IESER [194]EFEHL MALT NUR DAS [198]ELD MIT DER" 1810 PRINT"[206]UMMER [198][197][204][196] NEU." 1820 GOSUB3080 1830 PRINT:PRINT"[194]EFEHL [206]R 8 : [211][217][211] 50021,[198][197][204][196]1,[198][197][204][196]2" 1840 PRINT"[200]IERMIT WIRD DIE [198]IGUR AUF DEM [198]ELD 1850 [153]"ASCVAL(null)STR$1 NACH ASCVAL(null)STR$2 GESETZT.PEEKEIDE ASCELDER" 1860 [153]"WERDEN NEU GEMALT." 1870 [141]3080 1880 [153]:[153]"PEEKEFEHL (null)R 9 : (null)(null)(null) 50024 1890 PRINT"[200]IER WERDEN EINFACH ALLE [198]ELDER NEU 1900 [153]"GEMALT.(null)ACH DEM (null)ADEN DER (null)CHACHGRAFIK" 1910 [153]"IST DAS PEEKRETT MIT DER ATNNFANGSSTELLUNG" 1920 [153]"BESETZT." 1930 [153]"(null)UN WIEDER EINE STR$EMONSTRATION: 1940 GOSUB3080 1950 SYS50006:SYS50000:SYS50012,0 1960 SYS50033,"DER BEFEHL 'SYS 50024'",0,0 1970 SYS50033,A$,1,0 1980 POKE198,0:WAIT198,1:SYS50024 1990 SYS50033,"DER BEFEHL 'SYS 50021,9,17'",0,0 2000 POKE198,0:WAIT198,1:SYS50021,9,17 2010 SYS50033,"DIE BEFEHLE 'SYS 50015,1,17'",0,0 2020 SYS50033,"UND 'SYS 50018,17' ",1,0 2030 SYS50033,A$,2,0 2040 POKE198,0:WAIT198,1:SYS50015,1,17:SYS50018,17 2050 SYS50033,A$,0,0 2060 SYS50033," ",1,0 2070 SYS50033," ",2,0 2080 POKE198,0:WAIT198,1:SYS50003,1 2090 PRINT:PRINT"[194]EFEHL [206]R 10 : [211][217][211] 50027 2100 [153]"LEFT$IER WIRD DAS GANZE PEEKRETT EINMAL GEGEN" 2110 [153]"DEN (null)HRZEIGERSINN,ALSO IM MATHEMATISCH" 2120 [153]"POSITIVEN (null)INN GEDREHT UND NEU GEMALT." 2130 [153]"(null)ICHTIG:LEFT$IERBEI WERDEN AUCH SYNCHRON DIE"; 2140 [153]"(null)UMMERN DER ASCELDER GEAENDERT,UM DIE " 2150 [153]"VALINGABE ZU VEREINFACHEN.(null)O BEFINDET SICH"; 2160 [153]"ALSO ASCELD 0 NACH EINMALIGEN STR$REHEN NICHT"; 2170 [153]"MEHR LINKS OBEN,SONDERN LINKS UNTEN." 2180 [153]"VALNTSPRECHENDES GILT FUER ALLE ANDEREN" 2190 [153]"ASCELDER UND FUER MEHRMALIGES STR$REHEN. 2200 GOSUB3080 2210 PRINT:PRINT"[194]EFEHL [206]R 11 : [211][217][211] 50030 2220 [153]"(null)ACH ATNUSFUEHRUNG DIESES PEEKEFEHLS SIND DIE"; 2230 [153]"ASCELDNUMMERN WIEDER SO,ALS SEI DAS PEEKRETT" 2240 [153]"BISHER NICHT GEDREHT,ALSO BEFINDET SICH" 2250 [153]"ASCELD 0 WIEDER LINKS OBEN USW." 2260 [153]:[153]"(null)IEDER EINE STR$EMONSTATION." 2270 [141]3080 2280 [158]50000:[158]50006:[158]50012,0:[158]50024 2290 [158]50033,"DER BEFEHL 'SYS 50021,12,20'",0,0 2300 [158]50033,A$,1,0 2310 [151]198,0:[146]198,1:[158]50021,12,20 2320 [158]50033,"NUN DREHE ICH EINMAL MIT 'SYS50027'.",0,0 2330 [151]198,0:[146]198,1:[158]50027 2340 [158]50033,"NUN DER BEFEHL 'SYS 50021,20,28' ",0,0 2350 [151]198,0:[146]198,1:[158]50021,20,28 2360 [158]50033,"NUN 'SYS 50030' UND 'SYS50021,0,1'.",0,0 2370 [151]198,0:[146]198,1:[158]50030:[158]50021,0,1 2380 [158]50033,A$[170]" ",0,0 2390 [158]50033," ",1,0 2400 [151]198,0:[146]198,1:[158]50003,1 2410 [153]:[153]"(null)ND DER LETZTE PEEKEFEHL,PEEKEFEHL (null)R 12:" 2420 [153]"(null)(null)(null) 50033,(null)VAL(null)(null),(null)VALRIGHT$(null)VAL,(null)(null)ATN(null)(null)VAL" 2430 [153]"(null)IT DIESEM PEEKEFEHL WIRD DER (null)EXT BEI DER" 2440 [153]"DURCH (null)EILE UND (null)PALTE BESTIMMTENN" 2450 [153]"(null)OSITION IN DIE PEEKITMAP GESCHRIEBEN." 2460 [153]"STR$ER (null)EXT WIRD IMMER IM CHR$ROSSSCHRIFTMODUS"; 2470 [153]"AUSGEGEBEN,(null)TEUERZEICHEN WERDEN ALS" 2480 [153]"(null)EERZEICHEN INTERPRETIERT.VALS MUSS " 2490 [153]"WEITERHIN GELTEN: 0<=(null)(null)ATN(null)(null)VAL<=24 " 2500 [153]"UND 0<=(null)VALRIGHT$(null)VAL<=39 ." 2510 [141]3080 2520 [153]:[153]"PEEKEI ALLEN PEEKEFEHLEN KOENNEN SAEMTLICHE" 2530 [153]"ZU UEBERGEBENDE (null)ERTE IN BELIEBIGEN" 2540 [153]"ASCORMEN AUFTAUCHEN,Z.B. ALS ASCORMELN," 2550 [153]"(null)ARIABLEN ODER AEHNLICHES." 2560 [141]3080 2570 [153]:[153]"VALS FOLGT NUN EINE EINGESPEICHERTE " 2580 [153]"(null)ARTIE.(null)IE KOENNEN MIT ASC1 DEN NAECHSTEN" 2590 [153]"(null)UG AUSFUEHREN,MIT ASC3 DAS PEEKRETT DREHEN" 2600 [153]"MIT ASC5 ODER ASC7 DIE ASCARBEN AENDERN UND" 2610 [153]"MIT '(null)' DAS (null)PIEL VORZEITIG BEENDEN." 2620 [141]3080 2630 [140]:[141]3100 2640 [158]50000:[158]50006:[158]50012,0 2650 FB[178]11:[158]50009,FB:[158]50024 2660 [158]50033,"ANDERSSEN - STAUNTON",0,0 2670 [158]50033,"TURNIER ZU LONDON 1851",1,0 2680 ZG[178]1:[158]50033,"ZUG NR",2,10 2690 F1[178]11:F2[178]0 2700 [135] ZUG$ 2710 [139] ZUG$[179][177]"OO "[167]2740 2720 [158]50021,63,61:[158]50021,60,62 2730 P$[178]"O-O ":[137]2780 2740 Z$[178][200](ZUG$,2):[141]3130:P1[178]P 2750 Z$[178][202](ZUG$,4,2):[141]3130:P2[178]P 2760 P$[178]ZUG$[170]" " 2770 [158]50021,P1,P2 2780 [158]50033,[196]([181](ZG))[170]":"[170]P$,2,16 2790 [139][201](ZUG$,2)[178]"++"[167]2880 2800 ZG[178]ZG[170].5 2810 [151]198,0:[146]198,1:[161]Z$ 2820 [139]Z$[178]"INPUT"[167][137]2700 2830 [139]Z$[178]"DIM"[167][158]50027 2840 [139]Z$[178]"READ"[167]F1[178]F1[170]1[175]15:[158]50009,F1[170]16[172]F2:[151]53280,F1 2850 [139]Z$[178]"LET"[167]F2[178]F2[170]1[175]15:[158]50009,F1[170]16[172]F2 2860 [139]Z$[178]"S"[167][137]2880 2870 [137]2810 2880 [158]50033,A$,3,0 2890 [151]198,0:[146]198,1 2900 [158]50033,"NUN EINE GESCHWINDIGKEITSDEMONSTRATION.",0,0 2910 [158]50033,"DER BAUER AUF G2 WIRD 100MAL VOR- UND",1,0 2920 [158]50033,"ZURUCKGESETZT.STOPPEN SIE SELBST!",2,0 2930 [158]50033,A$,3,0 2940 [151]198,0:[146]198,1 2950 TI$[178]"000000" 2960 [129]A[178]1[164]100:[158]50021,54,46:[158]50021,46,54:[130] 2970 P$[178]TI$ 2980 [158]50033,"DIESE PROZEDUR HAT ALSO GERADE "[170][201](P$,2)[170]" ",0,0 2990 [158]50033,"SEKUNDEN GEDAUERT. ",1,0 3000 [158]50033,A$[170]" ",2,0 3010 [158]50033," ",3,0 3020 [151]198,0:[146]198,1 3030 [158]50003,1:[151]53280,11 3040 [153]:[153]"STR$AMIT IST NUN DIE STR$EMONSTRATION ZU VALNDE."; 3050 [153]"RIGHT$CH HOFFE,SIE HABEN NOCH VIEL (null)ERGNUEGEN"; 3060 [153]"MIT DER (null)CHACHGRAFIK.(null)SCHUESS!!" 3070 [153]:[153]:[128] 3080 [153]"PEEKITTE DRUECKEN (null)IE EINE (null)ASTE!" 3090 [151]198,0:[146]198,1:[142] 3100 [129]A[178]0[164]63 3110 [135] FIG:[158]50015,FIG,A:[130] 3120 [142] 3130 P[178][198]([200](Z$,1))[171]65[170]8[172](8[171][197]([201](Z$,1))):[142] 3140 [131] 132,130,131,133,134,131,130,132 3150 [131] 129,129,129,129,129,129,129,129 3160 [131] 0,0,0,0,0,0,0,0 3170 [131] 0,0,0,0,0,0,0,0 3180 [131] 0,0,0,0,0,0,0,0 3190 [131] 0,0,0,0,0,0,0,0 3200 [131] 1,1,1,1,1,1,1,1 3210 [131] 4,2,3,5,6,3,2,4 3220 [131] E2-E4,E7-E6 3230 [131] D2-D4,G7-G6 3240 [131] F1-D3,F8-G7 3250 [131] C1-E3,C7-C5 3260 [131] C2-C3,C5XD4 3270 [131] C3XD4,D8-B6 3280 [131] G1-E2,B6XB2 3290 [131] B1-C3,B2-B6 3300 [131] A1-C1,B8-A6 3310 [131] C3-B5,G7-F8 3320 [131] OO ,D7-D6 3330 [131] D4-D5,B6-A5 3340 [131] E3-D4,E6-E5 3350 [131] D4-C3,A5-D8 3360 [131] F2-F4,F7-F6 3370 [131] F4XE5,F6XE5 3380 [131] D1-A4,C8-D7 3390 [131] C3-B4,G8-H6 3400 [131] G1-H1,H6-F7 3410 [131] A4-A3,A6-C5 3420 [131] B5XD6+,F8XD6 3430 [131] B4XC5,D6XC5 3440 [131] A3XC5,D8-E7 3450 [131] C5-C7,F7-D6 3460 [131] C7-A5,H7-H5 3470 [131] C1-C7,H8-F8 3480 [131] F1-C1,A7-A6 3490 [131] E2-D4,A8-C8 3500 [131] D4-E6,C8XC7 3510 [131] C1XC7,F8-F7 3520 [131] A5-B6,F7-F6 3530 [131] H2-H3,G6-G5 3540 [131] B6-B2,D6-B5 3550 [131] D3XB5,A6XB5 3560 [131] B2XE5,H5-H4 3570 [131] C7XB7,F6-F1+ 3580 [131] H1-H2,E7-F6 3590 [131] B7-B8+,E8-E7 3600 [131] D5-D6+,E7-F7 3610 [131] B8-F8+,F7-G6 3620 [131] F8XF6+,F1XF6 3630 [131] E5XG5+,G6-F7 3640 [131] G5-G7+,F7XE6 3650 [131] G7-E7++